home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TOT_2.ARJ
/
DEMO.EXE
/
arc
/
DEMFS1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
782b
|
30 lines
Program DemoFastOne;
{DEMFS1}
USES DOS,CRT, totFAST;
var
WasOn: boolean;
begin
Clrscr;
with Screen do
begin
WriteAt(1,1,white,'* 1,1 (original)');
WriteAt(5,5,white,'* 5,5 (original)');
SetWindow(20,8,60,15);
Clear(31,' ');
WriteAt(1,1,lightcyan,'* 1,1 (in window)');
WriteAt(5,5,lightcyan,'* 5,5 (in window)');
WriteAt(20,7,Lightcyan,'This text is too long to fit!');
GotoXY(1,2);
TextColor(Lightcyan);
System.Writeln('Written with Turbo''s Writeln');
WasOn := WindowOff; {disbale the window}
WriteRight(80,23,white,'Written with WindowOff');
WindowOn;
WriteAt(1,8,lightcyan,'Window enabled again');
ResetWindow;
GotoXY(1,24);
end;
end.